Imports Pacientes
Imports System.Data.SqlClient
Public Class RdoHemograma
    Private flag As Integer = 0
    Private Fia As Fia = Nothing
    Private xfia As Integer = 0

    Private Sub cmscancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdCancelar.Click
        If MsgBox("Se perderan los cambios realizados, Desea continuar?", MsgBoxStyle.Information + MsgBoxStyle.OkCancel, "Atencion!") = MsgBoxResult.Ok Then
            LimpiarControles()
            Me.Close()
        Else
            Exit Sub
        End If
    End Sub

    Private Sub cmdSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSalir.Click
        Close()
    End Sub
    Private Sub LimpiarControles()
        'serie roja
        txtHematies.Text = ""
        txtHematocrito.Text = ""
        txtHemoglobina.Text = ""
        txtPlaquetas.Text = ""
        txtAnisicitosis.Text = ""
        txtPoiquilocitosis.Text = ""
        txtHipocromia.Text = ""
        'serie blanca
        txtLeucocito.Text = ""
        txtMielocitos.Text = ""
        txtMetamiel.Text = ""
        txtCayado.Text = ""
        txtSegmentados.Text = ""
        txtEosinofilos.Text = ""
        txtBasofilos.Text = ""
        txtLinfositos.Text = ""
        txtMonocitos.Text = ""
        txtLinf.Text = ""
        'eritrosedimentacion
        txt1hs.Text = ""
        txt2hs.Text = ""
        txtIndice.Text = ""

    End Sub
    Private Sub modi()
        'Dim ida As Integer = 0
        'Dim res As String = ""


        'If txtHematies.Text = "" Then
        '    res = ""
        '    ida = 1

        'Else
        '    res = txtHematies.Text
        '    ida = 1

        'End If
        Dim datos As DataSet = Nothing
        Dim Fia As Fia = Nothing
        Fia = New Fia()

        With Me.Fia
            datos = Fia.BuscarFia(xfia, ide, ida, conexion)

        End With
    End Sub

    Private Sub RdoHemograma_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        xfia = frmModificarFIa.cboNroFia.Text
    End Sub
End Class